home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / lightCycleWheel.wwModel / bounce.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  1.3 KB  |  46 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6.     WWTTTimer
  7. @:diciffffc
  8. }set piston(bounce) [expr {sin(2 * $PI * $u) + [expr noise($bounceNoiseSeed) * .1]}]
  9. set u [expr {$u + $uIncr}]
  10. synchWithScene
  11. cset bounceNoiseSeed 66
  12. set u 0
  13. set numberOfSteps 60
  14. set uIncr [expr 1./[expr $numberOfSteps - 1.]];
  15.     Responder
  16. Matrix
  17. Control
  18. @:@iiii
  19. ButtonCell
  20. ActionCell
  21. start bouncing 
  22.     Helvetica
  23. pause bouncing 
  24. stop bouncing 
  25. ff@@#::s
  26. WWTextField
  27.     TextField
  28. WWTextFieldCell
  29. TextFieldCell
  30. !set piston(bounce) %f; updateView
  31. piston(bounce)
  32. WindowTemplate
  33. iiii***@s@
  34. Bounce Stuff
  35. Panel
  36. bounce
  37. File's Owner
  38. IBControlConnector
  39. IBConnector
  40. start:
  41. IBOutletConnector
  42. interp
  43. controlPanel
  44. pause:
  45. stop:
  46.